10 ! RXB EXAMPLE            CALL CHAR(I,ALL)
100 CALL CHAR(I,ALL)
110 A=A+1 :: IF A<8 THEN 100
120 ! Inverts all character definitions
